home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / education / pe058.dms / pe058.adf / autoexec.AMOS / autoexec.amosSourceCode
AMOS Source Code  |  1978-08-29  |  2KB  |  56 lines
  1. Rem ---------------------------------------- 
  2. Rem --                                    -- 
  3. Rem -- THE WORD FACTORY  BY DELWYN.S.FARR -- 
  4. Rem --                                    -- 
  5. Rem --     TITLE SEQUENCE PROGRAMME       -- 
  6. Rem --                                    -- 
  7. Rem ---------------------------------------- 
  8. Close Workbench 
  9. Close Editor 
  10. If Chip Free>250000
  11.    ENOUGH_MEM=True
  12. Else 
  13.    ENOUGH_MEM=False
  14. End If 
  15. Screen Open 0,320,200,16,Lowres
  16. Hide : Curs Off : Cls 0
  17. If ENOUGH_MEM
  18.    Load "spelling:sprites/star.abk"
  19.    Load Iff "spelling:iff/title.iff",0
  20.    Flash Off : Double Buffer 
  21.    Channel 1 To Bob 1
  22.    Channel 2 To Bob 2
  23.    Channel 3 To Bob 3
  24.    Channel 4 To Bob 4
  25.    Channel 5 To Bob 5
  26.    Channel 6 To Bob 6
  27.    Rem *** STAR ANIMATION *** 
  28.    Bob 1,87,20,1
  29.    Amal 1,"A0,(31,10)(1,1)(2,1)(3,1)(4,1)(5,1)(6,1)(7,1)(8,1)(9,1)(10,1)(9,1)(8,1)(7,1)(6,1)(11,1)(12,1)(13,1)(14,1)(15,1)(14,1)(13,1)(12,1)(11,1)(5,1)(4,1)(3,1)(2,1)(1,1);"
  30.    Bob 2,514,65,1
  31.    Amal 2,"A0,(31,9)(1,1)(2,1)(3,1)(4,1)(5,1)(6,1)(7,1)(8,1)(9,1)(10,1)(9,1)(8,1)(7,1)(6,1)(11,1)(12,1)(13,1)(14,1)(15,1)(14,1)(13,1)(12,1)(11,1)(5,1)(4,1)(3,1)(2,1)(1,1);"
  32.    Bob 3,290,70,1
  33.    Amal 3,"A0,(31,8)(1,1)(2,1)(3,1)(4,1)(5,1)(6,1)(7,1)(8,1)(9,1)(10,1)(9,1)(8,1)(7,1)(6,1)(11,1)(12,1)(13,1)(14,1)(15,1)(14,1)(13,1)(12,1)(11,1)(5,1)(4,1)(3,1)(2,1)(1,1);"
  34.    Bob 4,180,50,1
  35.    Amal 4,"A0,(31,11)(16,1)(17,1)(18,1)(19,1)(20,1)(26,1)(27,1)(28,1)(29,1)(30,1)(29,1)(28,1)(27,1)(26,1)(21,1)(22,1)(23,1)(24,1)(25,1)(24,1)(23,1)(22,1)(21,1)(20,1)(19,1)(18,1)(17,1)(16,1);"
  36.    Bob 5,380,29,1
  37.    Amal 5,"A0,(31,7)(16,1)(17,1)(18,1)(19,1)(20,1)(26,1)(27,1)(28,1)(29,1)(30,1)(29,1)(28,1)(27,1)(26,1)(21,1)(22,1)(23,1)(24,1)(25,1)(24,1)(23,1)(22,1)(21,1)(20,1)(19,1)(18,1)(17,1)(16,1);"
  38.    Bob 6,450,37,1
  39.    Amal 6,"A0,(31,12)(16,1)(17,1)(18,1)(19,1)(20,1)(26,1)(27,1)(28,1)(29,1)(30,1)(29,1)(28,1)(27,1)(26,1)(21,1)(22,1)(23,1)(24,1)(25,1)(24,1)(23,1)(22,1)(21,1)(20,1)(19,1)(18,1)(17,1)(16,1);"
  40.    Amal On 
  41.    Wait 380
  42. Else 
  43.    Load Iff "spelling:iff/title.iff",0
  44.    Wait 250
  45. End If 
  46. Fade 3 : Wait 45
  47. Load Iff "spelling:iff/titleone.iff",0
  48. Wait 300
  49. Fade 3 : Wait 45
  50. Load Iff "spelling:iff/titletwo.iff",0
  51. ROUND=0
  52. While ROUND=0
  53.    If Fire(1) Then ROUND=1
  54. Wend 
  55. Fade 3 : Wait 45
  56. Run "spell.AMOS"